home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / bin / amirc / rexx / send.amirx < prev    next >
Text File  |  1981-05-07  |  316b  |  22 lines
  1. /* Filesend  for AmIRC
  2. \\ By The Possessed Programmer
  3. // Tipop@concentric.net
  4. \\ USAGE: /rx Send Filename
  5. //
  6. \\ Put this script in PROGDIR:rexx/
  7. // and send any text file through
  8. \\ AmIRC
  9. */
  10.  
  11. Arg filename
  12.  
  13. if open('data',filename,'R') then do while EOF('data')=0
  14.  
  15.    line=readln('data')
  16.  
  17.    'SAY' line
  18.  
  19.    end
  20.  
  21. EXIT
  22.